home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / COM / CASTERM.sit / CASTERM / Utilities / Special / Angel Kiss Folder / Angel Kiss1.2 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1996-04-25  |  6KB  |  28 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.2</name>
  5.     <id>-1</id>
  6.     <cardCount>7</cardCount>
  7.     <cardID>6350</cardID>
  8.     <listID>8626</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>384</width>
  14.         <height>304</height>
  15.     </cardSize>
  16.     <script>--------------------------------------------------------- CASTERM Sample Stack "Angel Kiss" ver1.2--               Copyright (c) 1994   Kiyoharu Ohtani--               Modified        1996   Yasuhide Tabata----   This stack include the follow resources.--      MtDeleteFile (XCMD) and--      MtPop        (XFCN) by Motoyuki Tanaka (UVJ)--      chat         (snd)  and--      poko         (snd)  and--      clickB       (snd)  by Wataru Sugiyama--------------------------------------------------------- ﾃ⑥1.0-- ﾃ①CASTERM2.0ﾃ頴ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃ頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬ-- ﾃ⑥1.1-- ﾃ①Apple Eventﾃｩﾃ崚ｪMﾃｩﾃｻﾃ‡ﾃεｨﾃ ﾃｳﾃｹﾃ‡邃｢CASTERM2.0ﾃ‡窶ｦﾃ･ﾂｿﾃｭﾃ凝‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢-- ﾃ①ﾃ‡ﾎｩﾃ‡ﾃε‡ï｣ｿ2.0ﾃ ﾂｻﾃｧ~ﾃ‡竕暗‡窶｡ﾃｩﾃ崚‡ﾃ佚ｯtﾃ‡ﾃ佚‡ﾃ暗‡ﾃ甘‡ﾂｧﾃ‡窶ｦﾃｯﾅ禿ｧX-- ﾃ⑥1.2-- ﾃ①HC2.2Jﾃ ﾂｻﾃｧ~ﾃ‡竕ˆcharﾃ､ﾃｷﾃｪﾃｮﾃ‡窶ｦﾃ‡ﾃ甘‡ﾃ暗ｬﾋ凖ｱ{ﾃ･ﾃ催‡ﾃεｪﾃｮﾃ‡ﾂｶﾃｯﾋ堙‡邃｢ﾃｨCﾃｪ竕･ﾃ‡竕･ﾃ‡ﾃ催‡ﾎｩ-- ﾃ①ﾃ‡ﾂｱﾃ‡竏†ﾃ‡窶ｦﾃ‡ﾃ甘‡ﾃ暗嘉ｧﾃ碓ﾃｪﾃｿﾃ‡ﾃ凝ｨoﾃ‡ﾂｵﾃ‡ﾃε烏ﾃ嘉｢ﾃ…[ﾃ‡ï｣ｿﾃｨCﾃｪ竕･ﾃ⑿by Tabataﾃ⒀-- ﾃ①CASTERM2.6ﾃ頴ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃ頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬ-------------------------------------------------------on openStackglobal saveUM,theSound,lockStack-- ﾃ頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬﾃ‡ﾃε荏ﾃ宇ﾃ叡ﾃ丑if the version < 2.1 thenbeepanswer "ﾃ‡ﾂｱﾃ‡ﾃε厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃ陛②HyperCard 2.1ﾃ ﾂｻﾃｨ窶榲‡竕暗‡ﾂｻﾃ‡ﾂ｢ﾃ‡竏†ﾃｬﾃ†ﾃｧﾃ湘‡ﾂｵﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"send "mouseUp" to cd btn "Home"end if-- ﾃ欝ﾃ右ﾃ嘉ｬﾃ栄ﾃ‡ï｣ｿﾃｱﾂｬﾃ‡ﾃﾃ‡竏妥‡ﾂｩﾃ‡ﾂｫﾃ‡ﾂｧﾃ‡ﾂｩﾃ‡ï｣ｿﾃ碓ﾃ嘉ｧﾃ…[ﾃ頴ﾃ嘉｣ﾃｯﾅ禿ｪﾃｮ(theSound)ﾃ‡窶ｦﾃ､iﾃｮ[put hilite of cd btn "sound" of cd "pref" into theSound-- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｯ竄ｬﾃ･ﾃ湘液ﾃ嘉｢ﾃ碓ﾃ‡ﾃε荏ﾃ宇ﾃ叡ﾃ丑put hilite of cd btn "protect" of cd "pref" into lockStack-- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｯ竄ｬﾃ･ﾃ湘‡ﾃεｪ窶ｺﾃｭﾃ‹set cantModify of this stack to lockStack-- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｯ竄ｬﾃ･ﾃ湘‡ï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡窶｡ﾃｬﾃ†ﾃｧﾃ湘‡竏妥‡ﾃ暗‡ﾃ甘‡ﾂｧﾃ‡窶ｦﾃ‡竏妥‡ﾃˆput the userModify into saveUMset the userModify to trueend openStackon closeStackglobal saveUMset the userModify to saveUMend closeStackon resumeStackglobal saveUMput the userModify into saveUMset the userModify to trueend resumeStackon suspendStackglobal saveUMset the userModify to saveUMend suspendStack---- ﾃ陰ﾃ叡ﾃ益ﾃ嘉｣ﾃ韻ﾃ悦ﾃ嘉ｬﾃ曳ﾃ‡ﾃεｨﾃ ﾃｳﾃｹ (Apple Eventﾃｮ竕 ﾃｪ竏づｩﾃｻﾃ‡窶ｦﾃｯKﾃ‡竏湘･ﾆ津‡ﾅ津‡ﾃ催‡ﾃˆ)--on appleEvent eventClass,eventID,sender-- senderﾃ‡ﾃ•":"ﾃ‡竕暗｣ﾃ甘ｪﾃｿﾃ‡ﾃﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡ﾃ暗‡ﾃε‡竕ˆset the itemDelimiter to ":"-- ﾃ映ﾃ…[ﾃ運ﾃ‡ﾃεｳvﾃ｣ﾃ…request appleEvent dataif it <> empty thenput it into AETextend if-- CASTERMﾃ‡ﾂｩﾃ‡ﾃﾃ‡ﾃεｨIﾃｳﾏ\ﾃｯﾃ津ｧﾃｪﾃ‡ï｣ｿﾃ荏ﾃ宇ﾃ叡ﾃ丑-- CASTERMﾃ‡ﾃ陛②ﾃｨIﾃｳﾏ\ﾃｩﾃｻﾃ‡窶ｦSAVEﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃ‡窶ｦﾃ‡ﾃ甘‡ﾃ凝ｯ竄ｬﾃｫ竏づ‡ﾂｵﾃ‡ﾎｩﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ‡ï｣ｿ-- ﾃｫﾃｳﾃｪMﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃ暗‡ﾃε‡竕暗②ﾃ‡ﾂｪﾃ‡ﾃ催‡ï｣ｿﾃｩﾃ崚‡ﾃ佚‡ﾆ津嘉ｧﾃ碓ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｨﾃ ﾃｳﾃｹﾃ‡竏妥‡ﾃˆ--if "CASTERM" is in (last item of sender) thenif (eventClass = "YCAS") and (eventID = "LFle") thenput AEText into theFile-- getDataﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｢ﾃ‡窶ｦﾃ｢竏ｫﾃｪﾃｸﾃ‡ﾃ˜getData theFileend ifend if-- ﾃｫﾂｺﾃ‡ﾃε韻ﾃ悦ﾃ嘉ｬﾃ曳ﾃ‡ﾃ陛英ﾃ厩ﾃ‡竏妥‡ﾃˆpass appleEventend appleEvent---- ﾃ嘉ｧﾃ碓ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ﾂｩﾃ‡ﾃﾃ映ﾃ…[ﾃ運ﾃ‡ï｣ｿﾃｩﾃ甘‡ﾃ凝ｨoﾃ‡竏‘--on getData theFileglobal theSound, theDoneset cursor to watchif theFile is empty then exit getDataopen file theFile-- 16Kﾃ‡窶｡ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡ïｬづ‡ﾅ津ｨ¥ﾃｯ邃｢ﾃ‡竕暗‡ﾂｵﾃ‡ﾃづ‡ﾂｧread from file theFile for 16000put it into theDataclose file theFile-- ﾃｯﾅ禿ｪﾃｮﾃ‡窶ｦﾃ､iﾃｮ[ﾃ‡ﾂｵﾃ‡ﾎｩﾃ･窶榲②ﾃｯsﾃｳpﾃ‡窶ｦﾃ‡ﾂｻﾃ‡ﾂ｡ﾃ‡ﾎｩﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｧﾃ古ｨﾃｺﾃ‡竏妥‡ﾃˆMtDeleteFile theFile-- ﾃ‡ﾂｱﾃ‡ﾂｱﾃ‡ﾂｩﾃ‡ﾃﾃｪﾃ甘‡邃｢ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃｨﾃ ﾃｳﾃｹﾃ‡竕暗‡竏妥③ﾃ‡ﾂｱﾃ‡ﾃεｯﾃｮﾃｯ邃｢ﾃ‡ﾃ陛 ﾃ催ｭUﾃｨ窶榲‡ﾃギtDeleteFileﾃ‡ï｣ｿﾃ嘘ﾃ嘉…-- ﾃ嘉ｬﾃ曳ﾃ‡窶ｦﾃ‡ﾂｵﾃ‡ﾆ津ｨoﾃｳﾃ ﾃｨ窶榲‡邃｢ﾃ‡ﾂ｡ﾃ‡ﾎｩﾃ嘉ｧﾃ碓ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡竏†ﾃ･ﾂｩﾃｮ窶ｰﾃ‡笳甘‡ﾆ津｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢ﾃ③put empty into theResultput number of lines of theData into maxLinerepeat with Num = 40 to maxLineset cursor to busyif line Num of theData contains "ﾃ①ﾃ…ﾃｱﾃ…ﾃｱﾃ…ﾃｱﾃ①ﾃ①ﾃ①ﾃ･fﾃ①ﾃ①ﾃｧ竅„" thenrepeat with Num2 = 1 to 50if line (Num + Num2) of theData contains "ﾃ㈲ﾃ⑤" thenexit repeatend ifend repeatput line (Num + 2) to (Num + Num2 - 2) of theData & return after theResultend ifend repeatput theResult into cd fld 1 of cd 1-- ﾃ･fﾃｧ竅„ﾃｩﾃｱﾃｧﾃ„ﾃ‡邃｢ﾃ‡ﾂｻﾃ‡ﾂｩﾃ‡ﾂ｡ﾃ‡ﾎｩﾃ‡ﾃ｜eepﾃ｢ﾏ\ﾃ‡ï｣ｿﾃｨoﾃ‡竏‘if cd fld 1 of cd 1 contains "ﾃ…w" thenbeepelse-- ﾃｪﾂｨﾃ･ﾋ愿‡ﾂｵﾃ‡ﾎｩﾃ‡ﾃﾃ｢ﾏ\ﾃ‡邃｢ﾃｨoﾃ‡ﾃ暗②ﾃｭAﾃ‡ﾂｵtheSoundﾃ‡邃｢trueﾃ‡ﾃεｩﾃｻﾃ‡ﾃε‡窶ｺif theSound = true then play "clickB"end if-- ﾃ ﾃ催｢ﾃ津ｱ竅„ﾃ‡ﾃε･ﾃｼﾃｧﾄｱﾃ‡竕暗‡ﾂｻﾃ‡ﾃ佚‡ﾃ催‡ﾅ津｢竏ｫﾃｯﾃｮﾃｫgﾃｪDﾃ･ﾃｼﾃｧﾄｱﾃｩﾂｿﾃｧsﾃ液ﾃ嘉｢ﾃ碓ﾃ‡ï｣ｿﾃ瓜ﾃ叡ﾃ曳if theDone <> "first" then put "done" into theDoneend getData</script>
  17.     <background id="2265" file="background_2265.xml" name="" />
  18.     <background id="2688" file="background_2688.xml" name="data" />
  19.     <background id="5949" file="background_5949.xml" name="" />
  20.     <card id="6350" file="card_6350.xml" marked="false" name="" owner="5949" />
  21.     <card id="3639" file="card_3639.xml" marked="false" name="ﾃ･ﾂｬﾃｪl" owner="2688" />
  22.     <card id="4258" file="card_4258.xml" marked="false" name="ﾃ､ﾃ暗｣竏†" owner="2688" />
  23.     <card id="4600" file="card_4600.xml" marked="false" name="ﾃｭnﾃ ﾃŠ" owner="2688" />
  24.     <card id="4755" file="card_4755.xml" marked="false" name="ﾃ液ﾃ嘉､ﾃ…[" owner="2688" />
  25.     <card id="5057" file="card_5057.xml" marked="false" name="ﾃｩsﾃ､O" owner="2688" />
  26.     <card id="7282" file="card_7282.xml" marked="false" name="pref" owner="2265" />
  27. </stack>
  28.